home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / gfx / 3d / raystorm_020.lha / Install_RayStorm < prev    next >
Text File  |  1997-11-18  |  5KB  |  145 lines
  1. ;**************************************************************************
  2. ; Install_RayStorm - RayStorm installation script for Installer
  3. ;
  4. ; Copyright © 1995-97 Andreas Heumann
  5. ;
  6. ; $Id: Install_RayStorm,v 2.0 09/16/1997
  7. ;
  8. ;     Installer and Installer project icon
  9. ;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  10. ;     Reproduced and distributed under license from Commodore.
  11. ;
  12. ;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  13. ;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  14. ;     OR RESPONSIBILITY IS ASSUMED.
  15. ;
  16. ;**************************************************************************
  17. (welcome "Welcome to the " @app-name " installation.\n")
  18.  
  19. ; "Needs"
  20. (set need-version 37)  ; version of operating system need by RayStorm
  21.  
  22. ; The source directory name
  23. (set #source-dir
  24.  (if (= 1 (exists @icon))
  25.   (pathonly (expandpath @icon))
  26.   (expandpath @icon)
  27.  )
  28. )
  29.  
  30. ;**************************************************************************
  31. ; Select destination directory for the installation. We suggest the user
  32. ; to install to the place from where the installer was started. This is
  33. ; since normally this software will be unarchived to its proper location
  34. ; and the files don't have to be copied any more.
  35. ;**************************************************************************
  36. (procedure P_select-destination-directory
  37.  (transcript "Selecting destination directory for the installation.")
  38.  (while
  39.   (
  40.     (set #default-dest
  41.      (askdir
  42.       (prompt "Select directory where to install " @app-name ".\n"
  43.                  "You have to create a directory for " @app-name " yourself."
  44.       )
  45.       (help "Here you can specify location where to install " @app-name ".\n"
  46.       )
  47.       (newpath)
  48.       (default #source-dir)
  49.      )
  50.     )
  51.     (if (= 2 (exists #default-dest))
  52.      0
  53.      (makedir #default-dest
  54.       (infos)
  55.      )
  56.     )
  57.   )
  58.  )
  59. )
  60.  
  61. ;**************************************************************************
  62. ; Installatation sequence
  63. ;**************************************************************************
  64. (message "This installation script will overwrite an older installed version "
  65.     "of " @app-name ". Please make a backup of any files you have changed.\n\n"
  66.     "Please remember during this installation:\n"
  67.     "Read the instructions provided behind the \"Help\" "
  68.     "buttons, if you are not absolutely sure what you are doing.\n"
  69. )
  70.  
  71. (complete 00)
  72. (transcript "On making " @app-name " 2.0.")
  73. (P_select-destination-directory)
  74. (complete 10)
  75. (working "Uncompressing basic files")
  76. (run (cat "lha x basic.lha \"" #default-dest "/\" #?"))
  77. (complete 50)
  78. (working "Uncompressing executable files")
  79. (run (cat "lha x exe.lha \"" #default-dest "/\" #?"))
  80. (complete 90)
  81. (if (= 1 (exists (tackon #default-dest "prefs/res.dat")))
  82.     (if(askbool
  83.             (prompt "You already have a file with predefined resolutions ('prefs/res.dat').\n"
  84.                       "Should I overwrite it?\n")
  85.             (help "The file 'prefs/res.dat' is a ASCII-file with predefined resolutions.")
  86.             (default 0)
  87.         )
  88.         (copyfiles
  89.             (source "prefs/res.dat")
  90.             (dest (tackon #default-dest "prefs"))
  91.         )
  92.     )
  93.     (copyfiles
  94.         (source "prefs/res.dat")
  95.         (dest (tackon #default-dest "prefs"))
  96.     )
  97. )
  98. (complete 95)
  99. (if (= 1 (exists (tackon #default-dest "prefs/scenario.prf")))
  100.     (if(askbool
  101.             (prompt "You already have a preferences file ('prefs/scenario.prf').\n"
  102.                       "Should I overwrite it?\n")
  103.             (help "The file 'prefs/scenario.prf' contains the preferences of Scenario.")
  104.             (default 0)
  105.         )
  106.         (copyfiles
  107.             (source "prefs/scenario.prf")
  108.             (dest (tackon #default-dest "prefs"))
  109.         )
  110.     )
  111.     (copyfiles
  112.         (source "prefs/scenario.prf")
  113.         (dest (tackon #default-dest "prefs"))
  114.     )
  115. )
  116.  
  117. (complete 95)
  118. (if (database "fpu" "NOFPU")
  119.     (if (= 0 (getversion "mathieeesbpatch.library"))
  120.         (message "Note for 020-users:\n"
  121.                     "In Kickstart V40.x, there is a bug in mathieeesingbas.library -\n"
  122.                     "it uses FPU code on non-FPU machines for division/multiplication.\n"
  123.                     "This bug can be easily fixed with a patch from Aminet:\n"
  124.                     "util/boot/PatchMathSB10.lha\n"
  125.         )
  126.     )
  127. )
  128.  
  129. (startup @app-name
  130.     (prompt "An assign need to be added to the \"S:user-startup\" so that " @app-name " will find it's libraries.\n"
  131.               "Should I add this assign for you?")
  132.     (help "If you skip this you have to copy \"" (tackon #default-dest "libs/raystorm.library")
  133.         "\" to \"libs:\" or execute this command: \"assign libs: " (tackon #default-dest "libs") " add\".")
  134.     (command "assign libs: " (tackon #default-dest "libs ") " add\n")
  135. )
  136. (message "Installation of " @app-name " done.\n"
  137.             "Important note: If you have problems with the window update open the MUI settings requester\n"
  138.             "and select from the window part for 'Refresh' the 'Smart'-mode.\n"
  139.             "Note: There is another archive with the example files, which you can install too.")
  140. (complete 100)
  141.  
  142. ;;; All done!
  143.  
  144. ; EOF
  145.